home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 20 / macformat_20.iso / mac / Shareware / Comunicaciones / ARACommander 2.1 demo / sample connection script < prev   
Text File  |  1993-12-30  |  2KB  |  77 lines
  1. tell application "ARAScripter"
  2.     
  3.     (* Set some basic connection parameters (Required if access is not Guest Access) *)
  4.     Set RegisteredUser
  5.     Set UserName "tester" (* your name *)
  6.     Set UserPassword "tester" (* your password *)
  7.     
  8.     Set PhoneNumber "779-7760" (* your phone number *)
  9.     
  10.     (* Set Redial characteristics (Optional) *)
  11.     Set RedialTimes 10
  12.     Set RedialInterval 10
  13.     
  14.     (*
  15.         Set some Modem characteristics (Optional).
  16.         Modem characteristics not set default to those
  17.         last set, or those set with Remote Access Setup control panel.
  18.     *)
  19.     Set SpeakerOn
  20.     Set PortName "Modem Port"
  21.     
  22.     (* Set a sound to play at connection (Optional) *)
  23.     Set ConnectSound "Sosumi"
  24.     
  25.     (* Set connection to disconnect after idle for n minutes or so (Optional) *)
  26.     Set IdleDisconnect 1
  27.     
  28.     (*
  29.         Make the Connect call. A Connect is called asynchronously,
  30.         meaning that other processes can get CPU time while we
  31.         loop until we find that the connection process has completed.
  32.         
  33.         Returns 0 if connection started,
  34.         or 1 if already connected.
  35.     *)
  36.     if (Connect) = 0 then
  37.         
  38.         (*
  39.             Call GetConnectResultCode in a repeat loop.
  40.             
  41.             Returns:a negative number if an error occured
  42.                     0 if connection succesful
  43.                     1 if still in process of connecting
  44.                     2 if in redial mode
  45.         *)
  46.         repeat
  47.             set connectResult to (Get ConnectResultCode)
  48.             if (connectResult < 1) then exit repeat
  49.         end repeat
  50.         
  51.         if (connectResult = 0) then
  52.             
  53.             (* successful connection!  You could open other applications and documents here*)
  54.             
  55.             (*
  56.                 loop and Get ConnectionStatus to see when we disconnect
  57.                 
  58.                 AppleScript note: You may want to call
  59.                 Get ConnectStatus in an idle handler instead
  60.                 of a repeat loop if you are writing a standalone
  61.                 AppleScript application. Get ConnectStatus
  62.                 really only needs to be called about once
  63.                 every one or two seconds.
  64.             *)
  65.             repeat
  66.                 set connectStatus to (Get ConnectionStatus)
  67.                 if (connectStatus = 0) then exit repeat
  68.             end repeat
  69.             
  70.             if (connectStatus = 0) then
  71.                 
  72.                 (* successful disconnection. You could do post-connection stuff here *)
  73.                 
  74.             end if
  75.         end if
  76.     end if
  77. end tell